<%

Function mensagens_excluir_mensagem(tabela, id_mensagem)

		DIM id_usuario_para
		
		Select Case tabela
		
			Case "geral"
			
					id_usuario_para = 0
			
			Case "individuais"
			
					str = "SELECT id_usuario_para from individuais where id="&id_mensagem
  					Set rs = conexao_mensagens.Execute(str)	
					
					id_usuario_para = rs("id_usuario_para")
					
			Case else
			
					str = "SELECT id_clube from "&tabela&" where id="&id_mensagem
  					Set rs = conexao_mensagens.Execute(str)	
					
					id_usuario_para = rs("id_clube")
		
		End Select		
		
		If permissao_tabelas(tabela, id_usuario_para) then

			str = "DELETE FROM "&tabela&" WHERE id="&id_mensagem
			Set rs = conexao_mensagens.Execute(str)	
			
		End If
	


End Function

%>
